home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / a_to_d / dateselt / datedm2a.dfm / datedm2a.txt
Encoding:
Text File  |  1996-09-15  |  2.5 KB  |  116 lines
  1. object Form1: TForm1
  2.   Left = 200
  3.   Top = 99
  4.   Width = 330
  5.   Height = 300
  6.   BorderIcons = [biSystemMenu]
  7.   Caption = 'Selection by Date Range (Monthly)'
  8.   Font.Color = clWindowText
  9.   Font.Height = -13
  10.   Font.Name = 'System'
  11.   Font.Style = []
  12.   PixelsPerInch = 96
  13.   Position = poScreenCenter
  14.   OnActivate = FormActivate
  15.   TextHeight = 16
  16.   object Label1: TLabel
  17.     Left = 8
  18.     Top = 200
  19.     Width = 57
  20.     Height = 25
  21.     Alignment = taRightJustify
  22.     AutoSize = False
  23.     Caption = 'From:'
  24.   end
  25.   object Label2: TLabel
  26.     Left = 8
  27.     Top = 237
  28.     Width = 57
  29.     Height = 25
  30.     Alignment = taRightJustify
  31.     AutoSize = False
  32.     Caption = 'Through:'
  33.   end
  34.   object DBGrid1: TDBGrid
  35.     Left = 8
  36.     Top = 8
  37.     Width = 305
  38.     Height = 185
  39.     DataSource = DataSource1
  40.     Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
  41.     TabOrder = 0
  42.     TitleFont.Color = clWindowText
  43.     TitleFont.Height = -13
  44.     TitleFont.Name = 'System'
  45.     TitleFont.Style = []
  46.   end
  47.   object Button1: TButton
  48.     Left = 224
  49.     Top = 216
  50.     Width = 89
  51.     Height = 33
  52.     Caption = 'Apply Dates'
  53.     TabOrder = 1
  54.     OnClick = Button1Click
  55.   end
  56.   object DateSelect1: TDateSelect
  57.     Left = 72
  58.     Top = 200
  59.     Width = 89
  60.     Height = 26
  61.     Date_Format = Mdyy
  62.     Date_Interval = dsMonth
  63.     Date_Type = dsFirst
  64.     DateCode = 728475.000000000000000000
  65.     CalColor = clSilver
  66.     CalEnabled = True
  67.     ParentShowHint = False
  68.     ShowHint = True
  69.     TabOrder = 2
  70.   end
  71.   object DateSelect2: TDateSelect
  72.     Left = 72
  73.     Top = 237
  74.     Width = 89
  75.     Height = 26
  76.     Date_Format = Mdyy
  77.     Date_Interval = dsMonth
  78.     Date_Type = dsLast
  79.     DateCode = 728505.000000000000000000
  80.     CalColor = clSilver
  81.     CalEnabled = True
  82.     TabOrder = 3
  83.   end
  84.   object Table1: TTable
  85.     Active = True
  86.     DatabaseName = 'TheAlias'
  87.     IndexFieldNames = 'SaleDate'
  88.     TableName = 'ORDERS'
  89.     Left = 48
  90.     Top = 160
  91.   end
  92.   object DataSource1: TDataSource
  93.     DataSet = Table1
  94.     Left = 80
  95.     Top = 160
  96.   end
  97.   object Database1: TDatabase
  98.     Connected = True
  99.     DatabaseName = 'TheAlias'
  100.     DriverName = 'INTRBASE'
  101.     LoginPrompt = False
  102.     Params.Strings = (
  103.       'SERVER NAME=C:\DELPHI\DEMOS\DATA\MASTSQL.GDB'
  104.       'USER NAME=SYSDBA'
  105.       'OPEN MODE=READ/WRITE'
  106.       'SCHEMA CACHE SIZE=8'
  107.       'LANGDRIVER='
  108.       'SQLQRYMODE='
  109.       'SQLPASSTHRU MODE=NOT SHARED'
  110.       'SCHEMA CACHE TIME=-1'
  111.       'PASSWORD=masterkey')
  112.     Left = 16
  113.     Top = 160
  114.   end
  115. end
  116.